Floppyshop 2/Floppyshop - 2.zip/Floppyshop - 2.iso/diskmags/4671-5.790/dmg-4695/giveway.17/source/b_bar.bas

Atari STOS Basic | 1987-04-21 | 19KB | 262 lines

10 VARNAME
11 DIM
12 DIM
120 GET PALETTE
130 SCREEN COPY
131 SCREEN COPY
150 REPEAT
160 FOR
165 FOR
170 VARNAME
171 NEXT
180 FOR
185 VARNAME
190 SCREEN COPY
191 VARNAME
20 VARNAME
21 DIM
210 SCROLL
211 SCREEN COPY
22 FOR
220 IF
221 IF
222 SPRITE
249 IF
250 NEXT
260 NEXT
270 UNTIL
280 VARNAME
281 VARNAME
282 VARNAME
283 VARNAME
284 VARNAME
285 VARNAME
286 VARNAME
287 VARNAME
288 VARNAME
289 VARNAME
290 VARNAME
291 VARNAME
292 VARNAME
293 VARNAME
294 VARNAME
295 VARNAME
3 REM Checked GFF א™
30 VARNAME
31 READ
32 FOR
4 REM *********** COMPILE THIS....FOR REASONABLE SPEED... ************
40 VARNAME
400 FOR
401 FOR
402 VARNAME
403 NEXT
404 NEXT
430 CLS
440 REM ***** GET PALETTE FROM SPRITE BANK *****
450 VARNAME
460 FOR
470 RETURN
5 DIM
50 HIDE
50000 DATA
50001 DATA
50002 DATA
50003 DATA
50004 DATA
50005 DATA
50006 DATA
50007 DATA
50008 DATA
50009 DATA
50010 DATA
50011 DATA
50012 DATA
50013 DATA
50014 DATA
50015 DATA
50016 DATA
50017 DATA
50018 DATA
50019 DATA
50020 DATA
50021 DATA
50022 DATA
50023 DATA
50024 DATA
50025 DATA
50026 DATA
50027 DATA
50028 DATA
50029 DATA
50030 DATA
50031 DATA
50032 DATA
50033 DATA
50034 DATA
50035 DATA
50036 DATA
50037 DATA
50038 DATA
50039 DATA
50040 DATA
50041 DATA
50042 DATA
50043 DATA
50044 DATA
50045 DATA
50046 DATA
50047 DATA
50048 DATA
50049 DATA
50050 DATA
50051 DATA
50052 DATA
50053 DATA
50054 DATA
50055 DATA
50056 DATA
50057 DATA
50058 DATA
50059 DATA
50060 DATA
50061 DATA
50062 DATA
50063 DATA
50064 DATA
50065 DATA
50066 DATA
50067 DATA
50068 DATA
50069 DATA
50070 DATA
50071 DATA
50072 DATA
50073 DATA
50074 DATA
50075 DATA
50076 DATA
50077 DATA
50078 DATA
50079 DATA
50080 DATA
50081 DATA
50082 DATA
50083 DATA
50084 DATA
50085 DATA
50086 DATA
50087 DATA
50088 DATA
50089 DATA
50090 DATA
50091 DATA
50092 DATA
50093 DATA
50094 DATA
50095 DATA
50096 DATA
50097 DATA
50098 DATA
50099 DATA
50100 DATA
50101 DATA
50102 DATA
50103 DATA
50104 DATA
50105 DATA
50106 DATA
50107 DATA
50108 DATA
50109 DATA
50110 DATA
50111 DATA
50112 DATA
50113 DATA
50114 DATA
50115 DATA
50116 DATA
50117 DATA
50118 DATA
50119 DATA
50120 DATA
50121 DATA
50122 DATA
50123 DATA
50124 DATA
50125 DATA
50126 DATA
50127 DATA
50128 DATA
50129 DATA
50130 DATA
50131 DATA
50132 DATA
50133 DATA
50134 DATA
50135 DATA
50136 DATA
50137 DATA
50138 DATA
50139 DATA
50140 DATA
50141 DATA
50142 DATA
50143 DATA
50144 DATA
50145 DATA
50146 DATA
50147 DATA
50148 DATA
50149 DATA
50150 DATA
50151 DATA
50152 DATA
50153 DATA
50154 DATA
50155 DATA
50156 DATA
50157 DATA
50158 DATA
50159 DATA
50160 DATA
50161 DATA
50162 DATA
50163 DATA
50164 DATA
50165 DATA
50166 DATA
50167 DATA
50168 DATA
50169 DATA
50170 DATA
50171 DATA
50172 DATA
50173 DATA
50174 DATA
50175 DATA
50176 DATA
50177 DATA
50178 DATA
50179 DATA
50180 DATA
50181 DATA
50182 DATA
50183 DATA
50184 DATA
50185 DATA
50186 DATA
50187 DATA
50188 DATA
51 ERASE
52 AUTO BACK
6 HIDE
60 GOSUB
70 DEF
71 DEF
72 DEF
73 DEF
74 DEF
75 DEF
76 DEF